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102 



APISL 
Document 



Transformation 
Instructions (1) 



104 



Transformation 
Instructions (n) 



106 



108 



Transformation 
Engine 



Output 
File(1) 



Output 
File(n) 
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140 



H 
m 



w 



142 



Receive Indication of API Written in the API 
Schema Language 



144 



Receive indication of Desired Output File 
Type and Select Corresponding 
Transformation Module 



146 



Generate Output File Using Selected 
Transformation Module and Indicated API 



No 




150 



Yes 



Receive Indication of Additional Desired 
Output File Type and Select Corresponding 
Transformation Module 



No 




154 



Yes 

i 

Receive Indication of Changed API Written 
in the API Schema Language 



7<^, 2 
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dclSchema 



id: name 



ucid: string 



version: string 



hexversion: hexint 



J-202 

204 

^206 
^208 
210 



'Pty. 3 



dclEnumeration 



-212 



id: name 



enum: yes/no 



224 
226 

-^228 



dclEnumMember 



id: name 



value: string 



230 
232 



del Function 



id: name 



type: string 



J- 214 

234 
236 

—^-238 



CallingConvention: string 



dclParam 



id: name 



type: sfr/ng 



allocation-context: io 



domain: string 



240 



F242 
244 
246 
248 



dclClassObject 



id: name 



7 



h 216 

250 

-^c-252 



Description: string 



254 



GUID: i/H/d 



dcllnterface 



id: name 



hungarian-id: name 



i- 218 

256 



^258 



refBaseClass: cname 



^260 



dclMethod 



id: name 



type: sfr/'ng 



[-262 

266 
268 
270 



dclParam 



272 
274 
276 
278 



J 



id: name 



type: string 



allocation-context: io 



domain: string 



GUID: uuid 



-264 



dclStruct 



id: name 



J- 220 
280 



r > 

dclMember 

— * 




id: name 


type: string 


domain: string 



1-282 

284 
286 
288 



dclMacro 



id: name 



value: string 



J- 222 

290 
292 
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Write Introductory File Information to Output File 



Transform Each dclClassObject Construct Using the 
dclClassObject-DeclareClassID Mode 



Write Remarks for Manifest Constants and 
Enumerations Section 



352 



354 



356 



-tC 



Transform Each dclMacro Construct Using the 
codegen-define Mode 



Transform Each dclEnumeration Construct Using 
the codegen-declare Mode 



358 



360 



Write Remarks and Introductory Information for 
Forward Declarations for Interfaces 



Transform Each dcllnterface Construct Using the 
codegen-ForwardDecl Mode 



Write Closing Information for Forward Declarations 
for Interfaces 



362 



364 



366 



Write Remarks for Hungarian-Style typedefs Section 



Write, for Each dcllnterface Construct, typedefs for 
the Construct 



368 



370 
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1 



.372 



Write Remarks for Structures Section 

374 



Transform Each dclStruct Construct Using the 
codegen-declare Mode 

~ "~~ 376 



Write Remarks for API Section 

i 

378 



Transform Each dclFunction Construct Using the 
codegen-declare Mode 

380 



Write Remarks for COM Interfaces Section 

382 



Transform Each dcllnterface Construct Using the 
codegen-declare Mode 

384 



Write Closing Information for Output File 
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354 



Write "If " <description> " GUID " 



Transform <GUID> using the GUID-RegistryFormat 

Mode 



402 



404 



406 



Write eol 



Transform <GUID> using the GUID-DefineGuid 
Mode with the Parameter guidlD="CLSID_"@id 



408 



410 



Write eol 



5 
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£3 



on 



9 

ru 



360 



502 




Yes 



Select <dclEnumMember>, Set 
$item=<dclEnumMember> 



Writeln "#define " $item->@id 
space ©value 



504 



506 



Write "enum " @id eol 



512 



514 



Write T eol 



508 



Yes ^ Additional 

<dclEnumMember>?^ 



516 



518 



Select <dclEnumMember>, Set 
$item=<dclEnumMember> 



510 



Write tab $item->@id 



Yes 



522 




Write " = " $item'@value 



524 



No 



Write eol 




Write "};" eol 



End 
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364 



Write "struct " @id ";" eol 



374 



Write "typedef struct _" @id eol 



Write "{" eol 



540 



< 



Transform each <dclMember> using 'codegen- 
declare' 



write "} " @id *LP" @id *P" @id ";" eol 



write "typedef const" @id "* LPC" @id";"eol 



552 



554 



556 



560 



562 



564 



write "typedef const " @id "* PC" @id ";" eol 
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SI 

m 



u 
ru 



rii 



378 



584 



Write "extern " @type space 



1 



582 



^Select <refCallingConvention> > Set item=<refCallingConvention> ) 



586 



594 



596 



Write $item 



No 



Write Space 



Write @id "(" 



Select <dclParam>, Set item=<dclParam> 



Transform $item Using 'codegen-declare' 




-f- 



590 



592 




608 



Write "," Space 
1 



Write ");" 



610 



7<^. to 
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382 



TPS'- 

m 

SI 

pj 



Let $lnterfaceName = @id 



Write eol 77 



-" eol 



Write "// " @id eol 

V 



Write "II 



-" eol 



1 
1 



Transform <GUID> using 'GUID-DefineGUID', with GuidID = 

"IID_" + @id 



Write eol "#undef INTERFACE" eol 



Write "#define INTERFACE " @id eol 



Write "{" eol 



Write "II lUnknown methods" eol 



1 
1 



Write "STDMETHOD(Querylnterface) (THIS_ REFIID, LPVOID *) 

PURE; " eol 



622 
624 
626 
628 
630 

632 
634 
636 
638 
640 



Write "STDMETHQD (ULONG.AddRef) (THIS) PURE; " eol 



Write "STDMETHODJULONG, Release) (THIS) PURE; " eol eol 



Write"//" @id " methods" eol 



648 



1: 



1 



642 



644 



646 



Select <dclMethod>, Set $item=<dclMethod> 



650 


> 


r 




Transform $item using 'codegen-declare' 


j 


700 ~\ 




f 
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5 : 



1 



Write"}" eol eol 



Write "II C-Style Helper Macros " eol 



1 
1 



Write "#define " @id "_Querylnterface(p,a,b) 
IUnknown_Querylnterface(p,a,b)" eol 



704 



706 



708 



Write "#define " @id "_AddRef(p) IUnknown_AddRef(p)" eol 



Write "#define " @id "_Release(p) lUnknown_Release(p)" eol eol 



1 



I 



Write "#if !defined(_cplusplus) || defined(CINTERFACE)" eol 



716 



718 



760 



5 



1 



710 



712 



714 



Re-Select <dclMethod>, Set $item=<dclMethod> 



Transform $item using 'codegen-Declare-CVFuncHelper\ with 
InterfaceName = $lnterfaceName and with ForCPP = "No" 



Write eol 




762 

Additional <dclMethod>? 



Yes 



Write "#else // !defined(_cplusplus) || defined(CINTERFACE)" 

eol 



764 



irs 
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766 



768 



770 



1 



Again Re-Select <dclMethod>, Set $item=<dclMethod> ) 



Transform $item using 'codegen-Declare-CVFuncHelper', with 
InterfaceName = $interfaceName and with ForCPP = "Yes" 



Write eol 



774 




772 

Additional <dclMethod>? 



Yes 



Write "#endif // !defined(_cplusplus) || defined(CINTERFACE)" 

eol eol 



420 
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Write "{" data[1] 



Write "-" data[2] 



Write "-" data[3] 



Write "-" data[4] data[5] 



422 



424 



426 



Write "-" data[6] data[7] data[8] data[9] data[10] 



Write "}" 



428 



430 



432 
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13 
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5 58 

Write tab @type space @id ";" eol 



?ty 14 



600 

_ f 602 

Write @allocation-context space @type space @id 



7^. 15 
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O 



Si 



ru 

O 

fy 



696 




t6 
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m 



730 
734 
736 



[ Write "# define" $lnterfaceName "_" @id "(pQbj" 'f 



732 




744 



740 



746 


~\ 


1 ">r 

Write "(" 


) 


748 






. v ■ 




K 


Select <dclParam>, Set item=<dc!Param> 


) 


750 






1 




f 


Write @id 


) 




754 
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770 



772 




774 



StrTypename=@id ) 



StrTypename="DWORD" 



1r V 



778 



Write "extern const std::const_map<" StrTypename ", const 
char*> g_map" @id ";" eol 
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800 



802 




804 



StrTypename=@id ) 



1r -f 



[ StrTypename="DWORD" 

- 1 r 808 



Write "namespace {" eol 



J 



Write "#define ENTRY_TYPE std::const_map<" StrTypeName ", 
const char*>::value_type" eol 



Write "#define ENTRY(X) ENTRY_TYPE( X, #X )" eol 



Write "ENTRY_TYPE l_r" @id "0 =" eol 



1 



818 



820 




810 



812 



814 



816 



Write "#undef ENTRY" eol 



Write "#undef ENTRY TYPE" eol 



5 
1 



Write "namespace }" eol 



Write "const std::const_map<" StrTypeName ", const char*> 
g_map" @id "( VECTORINIT(l_r" @id ") ); " eol 



824 



826 



828 



830 



832 



MS1-875US 




7<^< 20 



MS1-875US 




MS1-875US 



900 

902 -x 

Assign Initial Values 

904 I 

Write Initial Information to Output File 

906 a j — 

^~ Select dclMethod 

908 A I 

Transform Selected dclMethod into Test Proxy Method 

Declaration 
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930 



932 



934 



936 



908 



Write tab tab tab "eTestResult " @id 



J 



Write "(HRESULT JirExpected, OUT HRESULT& _hrActual" ) 



940 



Select dclParam 



J 



Write ©allocation-context space @type space @id ) 




23 
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960 
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1000 



1002 



Write eol tab tab "eTestResult CTestProxy<" $interface_type ">::" @id "HRESULT 
_hrExpected, OUT HR ESULT& _hrActual" 

g 



1004 



C 



Select dclParam 



1006 ^ 



I 



Write " " ©allocation-context space @type space @id 



1010 




1008 

Additional dclParam? 



Yes 



write ")"eol 

tab tab "{" eol 

tab tab tab "const ASCII ::CH szlnterfaceNameO = V" $interface_type T;" 



eol 



tab tab tab "const ASCII::CH szMethodNameQ = V" @id T;" eol 
tab tab tab "HRESULT hr, hrExpected(_hrExpected);" eol 
tab tab tab "bool fExpectingFailure = FAILED(_hrExpected);" eol 
tab tab tab "eTestResult tr=trPass;" eol 
-mk ■ 



1012 

" Is there at least 
one <dclParam> where ©allocation- 
context = "IN"? 



1014 A 

r \ 


Select <dclParam> where ©allocation-context = "IN" 


) 


1016 -\ 


i 






Write tab tab tab "CINParamSentinalPtr plNParam_" @id " = 
CreatelNParamSentinel(" @id ");" eol 
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1020 

~~ Is there at least 
one <dclParam> where ©allocation- 
context = "OUT"? 



m 

fft 

m 



1022 



Select <dclParam> where ©allocation-context = "OUT" 



1024 



Write tab tab tab "COUTParamSentinalPtr pOUTParam_" @id " = 
CreateOUTParamSentineK" @id ");" eol 



No 



1026 

Additional 

<dclParam> where ©allocation-context = _ 
"OUT"? 



-*L No 



1034 

Is selected <dclParam> the lasf 
<dclParam>? 



Yes 



1028 





Write tab tab tab "br = m pi->" @id "(" 




1030 ~\ 


* 






Select <dclParam> 


) 


1032^ 








Write @id 


i 



1036 



,Yes 



Write "," space 



Write ");" eol 

I 
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1 040 ^ 

Write tab tab tab "if (fExpectingFailed && hr!=hrExpected)" eol 
tab tab tab "{" eol 

tab tab tab tab "Log Unexpected HRESULT" eol 
tab tab tab tab "tr|=trFail" eol 
tab tab tab "}" eol 

tab tab tab "else if ('.fExpectingFailed && FAILED(hr))" eol 
tab tab tab "{" eol 

tab tab tab tab "Log a failed HRESULT" eol 
tab tab tab tab "tr|=trFail" eol 
tab tab tab "}" eol 




Write tab tab tab tab "tr|=pOUTParam_" @id ".ValidateOnFailure(""cout, 
szlnterfaceName, szMethodName, V" @id T);" eol 




Write" tab tab tab "}" eol 

tab tab tab "else if (IfExpectingFailure)" eol 
tab tab tab "{" eol 
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1054 



Select <dclParam> where ©allocation-context = "OUT" 



1056 



2v 



Write tab tab tab tab "tr|=pOUTParam_" @id ".ValidateOnSuccessf'cout, 
szlnterfaceName, szMethodName, V" @id T);" eol 




Write tab tab tab "tr|=plNParam_" @id ".Validate(" "oout, szlnterfaceName, 

szMethodName, V" @id T); n eol 



1068 

Additional 

<dclParam> where ©allocation-context = 
"IN"? 



Yes 



-*i No 



-f- 



1070 



Write tab tab tab "_hrActual = hr;" eol 
tab tab tab "return tr;" eol 
tab tab "}" eol 
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1100 



Remote 
Computing 
Device 




Other Device(s) 
1134 
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